home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / arcade / roadhog / gameover.amos / gameover.amosSourceCode < prev    next >
AMOS Source Code  |  1995-01-01  |  471b  |  23 lines
  1. Wait 50 : Auto View Off 
  2. Screen Open 0,320,255,2,Lowres
  3. Curs Off : Hide On : Flash Off : Led Off 
  4. Get Sprite Palette : Cls 0
  5. Auto View On 
  6. Sam Bank 5
  7. Bob 0,-120,100,1
  8. Bob 1,-163,101,2
  9. Bob 2,-201,106,3
  10. For A=0 To 2 : Channel A To Bob A : Amal A,A : Next A
  11. Amal On : Wait 38
  12. Sam Play 1,1,10000
  13. Wait 145 : Boom 
  14. Sam Bank 7 : Bob Off : Wait 70
  15. Unpack 6 To 0
  16. Sam Play 1,1,10500
  17. Do 
  18. If Fire(1)=-1 Then GOGAME
  19. Loop 
  20. Procedure GOGAME
  21. Fade 7 : Wait 100
  22. Run "RoadHog.AMOS"
  23. End Proc